﻿<Xml.Serialization.XmlRoot("ArrayOfClsDescription")> Public Class FieldsDescriptorArray

	<Xml.Serialization.XmlArrayItem("clsDescription")> Public mAllDescription() As FieldsDescriptor

	Sub New()

	End Sub
End Class

Public Class FieldsDescriptor
	Dim mTitle As String
	Dim mAName As String
	Dim mDesc As String
	Dim mTag As String
	Dim mType As String
	Dim mLenght As String
	Dim mDef As String
	Dim mNotes As String

	Public Property Title() As String
		Get
			Return mTitle
		End Get
		Set(ByVal value As String)
			mTitle = value
		End Set
	End Property
	Public Property AName() As String
		Get
			Return mAName
		End Get
		Set(ByVal value As String)
			mAName = value
		End Set
	End Property
	Public Property Desc() As String
		Get
			Return mDesc
		End Get
		Set(ByVal value As String)
			mDesc = value
		End Set
	End Property
	Public Property Tag() As String
		Get
			Return mTag
		End Get
		Set(ByVal value As String)
			mTag = value
		End Set
	End Property
	Public Property Type() As String
		Get
			Return mType
		End Get
		Set(ByVal value As String)
			mType = value
		End Set
	End Property
	Public Property Lenght() As String
		Get
			Return mLenght
		End Get
		Set(ByVal value As String)
			mLenght = value
		End Set
	End Property
	Public Property Notes() As String
		Get
			Return mNotes
		End Get
		Set(ByVal value As String)
			mNotes = value
		End Set
	End Property
	Public Property Def() As String
		Get
			Return mDef
		End Get
		Set(ByVal value As String)
			mDef = value
		End Set
	End Property

	Public Sub New() 'ByVal descTitle As String, ByVal descAName As String, ByVal descDesc As String, ByVal descTag As String, ByVal descType As String, ByVal descLenght As String, ByVal descNotes As String)
		'mTitle = descTitle
		'mAName = descAName
		'mDesc = descDesc
		'mTag = descTag
		'mType = descType
		'mLenght = descLenght
		'mNotes = descNotes
	End Sub

End Class